home *** CD-ROM | disk | FTP | other *** search
/ Hackers Handbook - Millenium Edition / Hackers Handbook.iso / files / hfiles / nn15a.exe / _SETUP.1 / nukescript.txt < prev   
Encoding:
Text File  |  1997-07-09  |  3.2 KB  |  148 lines
  1. Copy everything below the line into your ALIASES section!
  2. ---------------------------------------------------------
  3.  
  4.  
  5.  
  6. ; The orginial script was written by Pavlov and has been
  7. ; modified by puppet, Beavis97 and Olifant
  8. ;
  9. ; This procedure is the cornerstone of the DDE Link.
  10. ; YOU MUST NOT CHANGE THE NAME OF THE ALIAS!
  11. ;
  12. ; $1 will always be the resolved address or 0 if did not resolve.
  13. ; $2 will always be the IP.
  14. ;
  15. ; Please feel free to change anything else about this script :)
  16. ;
  17.  
  18. /nuke {
  19.   set %nukehost $1
  20.   set %nukeip $2
  21.   set %found 0
  22.   
  23.   if %nukehost == 0  {
  24.     set %nuker *!*@ $+ %nukeip
  25.     echo 6 -s nuke from: %nukeip
  26.     scannukeip
  27.   }
  28.   else { 
  29.     set %nuker *!*@ $+ %nukehost
  30.     echo 6 -s nuke from: %nukehost ( $+ %nukeip $+ )
  31.     scannukehost
  32.   }
  33. }
  34.  
  35. scannukehost {
  36.   set %num 1
  37.   set %num1 1
  38.   set %nukechans $chan(0)
  39.   set %num2 1
  40.   
  41.   echo 3 -s Scanning for address %nuker
  42.   
  43.   :loopchans
  44.   set %nukechan $chan(%num1)
  45.   set %num 1
  46.   if (%num1 > %nukechans) { goto end }
  47.   echo 6 -s  Looking in %nukechan
  48.   :loopnicks
  49.   set %num2 1
  50.   if ($nopnick(%num,%nukechan) == $null) {
  51.     inc %num1 1
  52.     goto loopchans
  53.   }
  54.   :loopial
  55.   if ($ial(%nuker,%num2).nick == $nopnick(%num,%nukechan)) {
  56.     echo 4 -s -- Found: $ial(%nuker,%num2).nick on %nukechan
  57.     if $me isop %nukechan {
  58.       ban -u900 %nukechan $ial(%nuker,%num2).nick 3
  59.       kick %nukechan $ial(%nuker,%num2).nick Don't nuke me! (AutoNab from NukeNabber)
  60.       set %found 1
  61.     }
  62.     else  {
  63.       /msg %nukechan $ial(%nuker,%num2).nick $+ , don't nuke me!
  64.       set %found 1
  65.     }
  66.   }
  67.   if ($ial(%nuker,%num2).nick == $null) { goto loopnicks1 }
  68.   inc %num2
  69.   goto loopial
  70.   :loopnicks1
  71.   inc %num
  72.   goto loopnicks
  73.   
  74.   :end
  75.   unset %nuker
  76.   unset %num
  77.   unset %num1
  78.   unset %num2
  79.   unset %nukechan
  80.   unset %nukechans
  81.   
  82.   if (%found == 0) {
  83.     set %nuker *!*@ $+ %nukeip
  84.     scannukeip
  85.   }
  86.   
  87.   halt
  88. }
  89.  
  90. scannukeip {
  91.   set %num 1
  92.   set %num1 1
  93.   set %nukechans $chan(0)
  94.   set %num2 1  
  95.   echo 3 -s Scanning for address %nuker
  96.   
  97.   :loopchans
  98.   set %nukechan $chan(%num1)
  99.   set %num 1
  100.   if (%num1 > %nukechans) { goto end }
  101.   echo 6 -s  Looking in %nukechan
  102.   :loopnicks
  103.   set %num2 1
  104.   if ($nopnick(%num,%nukechan) == $null) {
  105.     inc %num1 1
  106.     goto loopchans
  107.   }
  108.   :loopial
  109.   if ($ial(%nuker,%num2).nick == $nopnick(%num,%nukechan)) {
  110.     echo 4 -s -- Found: $ial(%nuker,%num2).nick on %nukechan
  111.     if $me isop %nukechan {
  112.       ban -u900 %nukechan $ial(%nuker,%num2).nick 3
  113.       kick %nukechan $ial(%nuker,%num2).nick Don't nuke me! (AutoNab from NukeNabber)
  114.       set %found 1
  115.     }
  116.     else  {
  117.       /msg %nukechan $ial(%nuker,%num2).nick $+ , don't nuke me!
  118.       set %found 1
  119.     }
  120.   }
  121.   if ($ial(%nuker,%num2).nick == $null) { goto loopnicks1 }
  122.   inc %num2
  123.   goto loopial
  124.   :loopnicks1
  125.   inc %num
  126.   goto loopnicks
  127.   
  128.   :end
  129.   
  130.   if %found == 0 {
  131.     echo 4 -s Could not find this nuker on local channels...
  132.     who %nukehost
  133.     who %nukeip
  134.   }
  135.   
  136.   unset %nuker
  137.   unset %num
  138.   unset %num1
  139.   unset %num2
  140.   unset %nukechan
  141.   unset %nukechans
  142.   unset %nukehost
  143.   unset %nukeip
  144.   unset %found
  145.   
  146.   halt
  147. }
  148.